home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / background_59448.txt < prev    next >
Text File  |  1990-08-14  |  3KB  |  122 lines
  1. -- background: 59448 from stack: in
  2. -- bmap block id: 62106
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Teacher Details
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   global interactiveDemo
  9.   installMenuBar 1180,1181,1182,1183,1184
  10.   if interactiveDemo then
  11.     show card field "Instructions"
  12.   end if
  13.   put false into interactiveDemo
  14. end openBackground
  15.  
  16. on doMenu menuItem
  17.   if menuItem contains "About" then
  18.     lock screen
  19.     restoreMenuBar
  20.     go to card short name of this background of background "About"
  21.     unlock screen with zoom close
  22.   else if menuItem is "Home" then
  23.     restoreMenuBar
  24.     go home
  25.   else if menuItem contains "Quit" then
  26.     lock screen
  27.     restoreMenuBar false
  28.     go to card "Mac School¬Æ Shell"
  29.     unlock screen with zoom close
  30.   else if menuItem is "New Teacher‚Ķ" then
  31.     push card
  32.     go to background "Teacher Details tabs"
  33.   else if (menuItem is "Open‚Ķ" OR menuItem is "Close" OR menuItem is "Import Students‚Ķ" OR menuItem is "Page Setup‚Ķ" OR menuItem is "Undo" OR menuItem is "Cut" OR menuItem is "Copy" OR menuItem is "Paste" OR menuItem is "Clear") then -- do nothing
  34.   end if
  35. end doMenu
  36.  
  37.  
  38.  
  39.  
  40. -- part 1 (field)
  41. -- low flags: 01
  42. -- high flags: 0000
  43. -- rect: left=29 top=52 right=67 bottom=104
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 0
  47. -- font id: 3
  48. -- text size: 10
  49. -- style flags: 0
  50. -- line height: 13
  51. -- part name: teachers
  52.  
  53.  
  54. -- part 2 (field)
  55. -- low flags: 01
  56. -- high flags: 0000
  57. -- rect: left=396 top=52 right=67 bottom=479
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 65535
  61. -- font id: 3
  62. -- text size: 10
  63. -- style flags: 0
  64. -- line height: 13
  65. -- part name: date
  66.  
  67.  
  68. -- part 3 (field)
  69. -- low flags: 01
  70. -- high flags: 0007
  71. -- rect: left=32 top=94 right=320 bottom=481
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 0
  75. -- font id: 3
  76. -- text size: 10
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: Teacher Name
  80.  
  81.  
  82. -- part 4 (field)
  83. -- low flags: 01
  84. -- high flags: 0007
  85. -- rect: left=203 top=94 right=320 bottom=481
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 0
  89. -- font id: 3
  90. -- text size: 10
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Homeroom
  94.  
  95.  
  96. -- part 5 (field)
  97. -- low flags: 01
  98. -- high flags: 0007
  99. -- rect: left=314 top=94 right=320 bottom=481
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 0
  103. -- font id: 3
  104. -- text size: 10
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Phone #
  108.  
  109.  
  110. -- part 6 (field)
  111. -- low flags: 01
  112. -- high flags: 0007
  113. -- rect: left=436 top=94 right=320 bottom=481
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 0
  117. -- font id: 3
  118. -- text size: 10
  119. -- style flags: 0
  120. -- line height: 16
  121. -- part name: Select
  122.